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SUBROUTINE DUP3271 (Lun) 
Version: *v04-000' 


PARA RARASALASAALA SALES L ELSES ARRESTS R TREE RRR R REESE CES EERE EEE CREO 


COPYRIGHT (c) 1978, 1986, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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* 

* THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
* ONLY IN, ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
* INCLUSION OF THE ABOVE COPYRIGHT NOTICE, THIS SOFTWARE OR ANY OTHER 
+ COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO_ANY 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
: TRANSFERRED” 

® 

* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
* CORPORATION. 

® 
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® 

® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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Author: Sharon Reynolds Creation date:10-Sept-80 
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Functional description: 


This module builds the error log report for the Dup11/3271 
Protocol Emulator (XKDRIVER). 
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Modified by: 

v03-003 SAR0221 Sharon Reynolds, 28-Mar-1984 
Changed the call to ocesi _OWNUIC to ORBSL OWNER. 

v03-002 SARO113 Sharon A. Reynolds, 23-Jun-1983 


Changed the corr tege control in the ‘format’ statements 
for use with ERF. 


v03-001 SARO034 Sharon A. Reynolds, 8-Jun-1983 
Removed brief support. 

v02-003 BP0003 Brian Porter, 23-NOV-1981 
Minor edit. 

v02-002 BP0002 Brian Porter, 06-NOV-1981 
Added ‘device attention’ support. 


v02-001 BP0001 Brian Porter, 29-JUN-1981 
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Added call to logger. 


Include ‘SRC$:MSGHDR.FOR /NOLIS 
Include ‘SRC$:DEVERR.FOR /NOLIS 


Byte 


Parameter 
Parameter 


Integer*4 
Integer*4 
Integer*4 
Integer*4 
Integer*4 
Integer*4 
Integer*4 
Integer*4 
Integer*4 
Integer*4 
Integert4 
Integer*4 
Integer*4 
Integer*4 
Integer*4 
Integer*4 
Integer*4 
Integer*4 
Integer*4 
Integer*4 
Integer*4 
Integer*4 


Integer*4 


T° 
b fd 


lun 


timeout = 96 
count = 18 


field 


compress4 
compressC 


buf 
precedes tes 


Make the contents of the register save area in the error log 
buffer available to this module 


Equivalence 
Equivalence 
Equivalence 
Equivalence 
Equivalence 
Equivalence 
Equivalence 
Equivalence 


(tnak,EMBSL_DU_REGSAV 
(rnak,EMBSL_DV_REGSAV 


VAX=11 FORTRAN 
DISKSVMSMASTER: 


Pp 
Clpup3271.FoR:1°%"* 


i=] 
= 


04 
04 
4 

4 ‘ 
t 
04 
04 
04 
04 
04 
04 
04 
0% 
04 
04 
04 
04 
0% 
04: 
04: 


N 15 
DUP3271 16-Sep-1984 00:01:5 VAX=11 FORTRAN V3.4-56 Page 3 
82300 138s 995803 DISKSVMSMASTER: CERF .SRCIDUP3271 . FOR: 1 
0273 Equivalence {tong EABSL Dv _REGSAV(8}) 
0274 Equivalence (reng,EMBSL_DV_REGSAV(9) ) 
0275 Equivalence (trv1,EMBSL_DV_REGSAV(10)) 
0 ug Equivalence (rrvi,EMBSL_DV_REGSAV(11)) 
7 Equivalence (rony,EMBSL_DV_REGSAV(12)) 
78 Equivalence (chai, EMBSL_DV_REGSAV(15)) 
79 Equivalence See tt ee eee 
0280 Equivalence (xack,EMBSL_DV_REGSAV(15)) 
0281 Equivalence (habo, EMB$L_DV_REGSAV(16)) 
0 B Equivalence tdabo.EMBSt DV _REGSAV EI )) 
028 Equivalence cf m,EMBSL_DV_REGSAV(18)) 
0284 Equivalence (d 96 - Fie et DV REG SAV )) 
0285 Equivalence (hard, EMBSL_DV_REGSAV(20)) 
Ose Equivalence Ba at re NS 1)) 
0287 Equivalence (rblk, EMBSL_DV_REGSAV ( §3} 
0288 Equivalence (habx ,EMBSL_DV_REGSAV(25)) 
i394 Equivalence (teot ,EMBSL_DV_REGSAV(24)) 
3 
8S8 C Define driver offsets for PROTOCOL STATISTICS 
0295 Character*11 offset(0:18) 
0296 Data offset (0) /*LCBSW_TNAK®'/ 
0297 Data offset(1) /*LCBSW_RNAK*'/ 
0298 Data orpeeteg /"LCBSW_TENQ®'/ 
0299 Data offset (3) /"LCBSW_RENQ®#'/ 
0300 Data offset(4) /*LCBSW_TRVI®'/ 
0301 Data offset(5) /*LCBSW_RRVI*'/ 
4 Data orreet ya: /*LCBSW_RCNV®'/ 
030 Data offset(7) /*LCBSW_CHAI®'/ 
0304 Data offset(8) /*LCBSW_GPOL*®'/ 
0305 Data offset(9) /*LCBSW_XACK#'/ 
0306 Data offset(10) /*LCBSW_HABO®' / 
0307 Data offset(11) /*LCBSW_DABO®' / 
0308 Data Sess ht 1 /*LCBSW_RTIM®'/ 
0309 Data of fset(13) /*LCBSW_DISC#'/ 
0310 Data offset(14) /*LCBSW_HARD*®'/ 
0311 Data offset(15) /*LCBSW_TBLK*'/ 
Bsi¢ Data orreets ie: /*LCBSW_RBLK*'/ 
031 Data offset(17) /*LCBSW_HABX® ' / 
0314 Data offset (18) /*LCBSW_TEOT#"/ 
Bet? | 
O37 | 
B15 : Define descriptions for PROTOCOL STATISTICS 
0830 Character*32 descrp(0:18) | 
0321 Data descrp(0) /*NAK''S TRANSMITTED = 2'/ 
0356 Data descrp(1) /*NAK''S RECEIVED = #°/ 
2 Data gescrote? /*ENQ''S TRANSMITTED = #°/ 
0324 Data descrp(3) /*ENQ’'S RECEIVED = #° 
0325 Data descrp(4) /*RVI''S TRANSMITTED = #'/ 
0326 Data descrp(3) 7*RVI""S RECEIVED = **/ | 
Data cescrprg) /*CONVERSATIONAL REPLIES IN = *#'/ 
0528 Data descrp(7) /*CHAINED WRITES RECEIVED = #'/ | 
32 Data descrp(8) /*GENERAL POLLS RECEIVED = *'/ | 
| 
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16 
1G-Sep-19 4 90:0) :? VAX-11 FORTRAN Ye .8-26 Page 4 
-Sep-1984 54:1 DISKSVMSMASTER: CERF .SRCJDUP3271.FOR;1 
Data descrp(9) /*INVALID ACK''S RECEIVED = #'/ 
1 Data goscrpt iy} /*HOST ABORTED XMISSIONS = #'/ 
¢ Data descrp(11) /*DRIVER ABORTED XMISSIONS = *'/ 
0 Data aoscrot igs /*XMISSION RESPONSE TIMEOUTS = *'/ 
8 Data descrp(13) /*DETECTED LINE DISCONNECTS = *'/ 
5 Data descrp(14) /*DETECTED HARDWARE ERRORS = *'/ 
0 Data descrp(15) /*USER BLOCKS TRANSMITTED = *'/ 
0 Pata descrps is} /*USER BLOCKS RECEIVED 2 e'/ 
0338 Data descrp(17) /*AMBIGUOUS ACK''S SENT = #'/ 
8 , Data descrp(18) /*IMPLIED ACK''S SENT (EOT) = *'/ 
8 1 
g C 
0 C Contruct the report header 
Bete C 
0345 
Bese Call FRCTOF (lun) 
034 
0348 call dhead! ‘lun,*UBA DUP11") 
0349 
0350 C 
0351 C Decode and output the DUP11 registers 
gag 
Bee Call DUP11 (Lun, parcsr rxcsr,rxdbuf,txcsr,txdbuf) 
0356 C 
SA : Output PROTOCOL STATIST!CAL INFORMATION for report 
R320 Call LINCHK (Llun,3) 
n, 
See4 : ° 
B30¢ Write (lun,5) 
Beez 5 Format (/° *,"*PROTOCOL STATISTICAL INFORMATION’ ,/) 
Ssee Do 20 1=0 t 
° =0,coun 
O39 
Been Call LINCHK (Lun,2) 
Bee0 Field=LIBSEXTZV (0,16,stats(1)) 
Oe6 Write (Lun, 10) offset(1),stats(1),descrp(1), field 
8 7 10 forast (* ",18,A<compressC (offset(1))>,124,78.4,/, 
8 Le 1 140,A<compressC (descrp(l))>,I<compress4 (field)>,'.") 
0 6 
He 20 Continue 
a 
: Decode and output SOFTWARE INFORMATION fos report 


call Linchk (lun,1) 
write(lun,25) 
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7 25 format(" *,:) 
if CembSw_hd_entry .ne. 98) then 
call ucb$b_lertcnt (lun,emb$b_dv_ertcnt) 


call ucb$b_ertmax (lun,emb$b_dv_ertmax) 
endif 


call orb$l_owner (Lun,emb$l_dv_ownuic) 
call ucb$l_char (Lun,emb$i_dv_char) 


poole oleleleleleleloleoleo) 


call ucb$w_sts (lun,emb$w_dv_sts) 

call ucb$l_opcnt (lun,emb$l_dv_opcnt) 
call ucb$wlerrcnt (lLun,emb$w_dv_errcnt) 
if Cemb$w hd_entry .ne. 98) then 

call Linchk (Llun,1) 

write(iun,25) 

call dup3271_qio (lun,emb$w_dv_ func) 
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call irp$Sw_bcnt (Lun,emb$u_dv_bcnt) 
call irp$Sw_boff (lun,emb$w_dv_boff) 
call irp$l_pid (lun,emb$l_dv_rapid) 
call frpte. test (Lun,emb$l_dv_iosb1) 
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Return 
END 
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DISKSVMSMASTER: 


13.426 Pay 
ERF .SRCJDUP3271 .FOR;1 


5 


DUP3271 


PROGRAM SECTIONS 
Name 
0 SCODE 
1 SPDATA 
‘ie SLOCAL 


ENTRY POINTS 
Address Type 
0-00000000 


VARIABLES 


Total Space Allocated 


Name 
DUP3271 


Nare 
CHAI 


DISC 
EMBSB_DV_ERTCNT 
V-NAMLNG 


W"DV"UNIT 

EMBSW~HD-ERRSEQ 
POL 

HABX 

PARCSR 

RCNV 

RNAK 

RTIM 

RXDBUF 

TENG 


TNAK 
TXCSR 
MACK 


Attr 


A 
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ibutes 
CON REL LCL SHR EXE RD NOWRT 
CON REL LCL SHR NOEXE RD NOWRT 
CON REL LCL NOSHR NOEXE RD WRT 
OVR REL GBL SHR NOEXE RD WRT 
Address Type Name 
-00000096 I[*4 
-0000001C L*1 EMBSB_ DV_CLASS 
-00000011 L*1 EMB$B_DV_ERTMA’. 
-Q0000003A L*l EMBSB_DV_SLAVE 
-00000036 I*4 EMBSL_DV_CHAR 
-00000016 I*4 EMBSL_DV_I0SB2 
3-00 00 005 I*4 EMBSL_DV_NUMREG 
sisal ts I*4 EMBSL_DV_OWNUIC 
-00000000 I*4 EMBSL_HD_SID 
mitt D4 ies EMBSW_DV_BCNT 
-0000002C I* ed te tl 
-O000001A iss EMBSW_DV_STS 
-00000004 I*2 EMBSW_HD_ENTRY 
-00000334 I*4 FIELD 
- “Rofo fORS 1*4 HABO 
QOOO0A2 I*4 HARD 
P- -00000004a L*1 LUN 
“QO0000AA I*4 RBLK 
-00000076 I*4 RENG 
-Q000007E I*4 RRVI 
- B88 B3A I*4 RXCSR 
- A6 I*4 TBLK 
-000000B2 I*4 TEOT 
-0000007A I*4 TRVI 
-00000066 I*4 TXDBUF 
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DuP3271 


ARRAYS 
Address Type Name 
CHAR DESCRP 
L*l EMB 


1*4 EMBSOQ 
CHAR OFFSET” 


1*4 STATS 
LABELS 
Address Label 
1-0000001E 5° 


1*4 COMPRESS4 
IRP$L_PID . 


ORBSL OWN 
UCBSW~STS 


<2 res =by “Tine 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type 


IRP$W_BCNT 
UCBSB_ERTMAX 


rf-ep-1964 90:07:59 vate]? FORTRAN ¥5.4~ 


Bytes Dimensions 


Label Address Label 
20 1-00000069 25° 
Type Name Type Name 
DHEAD1 DUP11 DUP3271_Q10 
IRP$W_BOFF I1*4 LIBSEXTZV 


UCBSL_CHAR UCBS$L_OPCNT 


C1puP3271.FOR: 128 


Type Name 
FRCTOF 
LINCHK 
UCBSW_ERRCNT 
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subroutine dup3271_qio (lun,emb$w_dv_ func) 


g 


= 


SS 


include ‘src$:qiocommon.for /nolist’ 


38 
027 

0274 

8 ft? byte lun 

5 rt integer*2 emb$w_dv_ func 

0279 integer*4 iocode(0:1,0:63) 
$580 . 

0281 

OSes 

028 

osee if (qiocode(0,0) .eq. 0) then 

0286 Qiocode(1,11) = Xloc(10$_WRITEPBLK) 
OSEe Qiocode(1,12) = Zloc(10$_READPBLK) 
os3e Qiocede(1,13) = Xloc(1O$_RDSTATS) 
O598 Qiocode(1,26) = Zloc(IO$_SETCHAR) 
0294 Qiocode(1,29) = Xloc(1O$_DIAGNOSE) 


OS99 Qiocode(1,32) = Zloc(10$_WRITELBLK) 
0298 Qiocode(1,33) = Zloc(1O$_READLBLK) 
$3 

Ben Qiocode(1,48) = Zloc(10$_WRITEVBLK) 
sat Qiocode(1,49) = Xloc(1O$_READVBLK) 
0304 do 10,i = 0,63 

0305 

Bene qiocode(0,i) = 33 

§308 if (qiocode(1,i) .eq. 0) then 


= 


qiocode(1,i) = Zloc(qio_string) 
endif 


10 continue 
endif 


call irp$w_func (lun,emb$w_dv_func, 
1 qiocode(0, LibSextzv(0,6,embSw_dv_func))) 


return 
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DUP3271_Q10 


0321 end 


PROGRAM SECTIONS 


Name Bytes 
0 SCODE 159 
1 SPDATA 

SLOCAL 3¢ 

QIOCOMMON 124 

Total Space Allocated 1962 


ENTRY POINTS 
Address Type Name 
0-00000000 DUP3271_Q10 


VARIABLES 
Address Type 


EMBSW_DV_FUNC 
10$_ABORT 
10$~ACPCONTROL 
10$~CLEAN 
DEACCESS 
IAGNOSE 


ow 


“FORMAT 
“LOADMCODE 
“MOUNT 
“OFFSET 
“asToP 
“READCSR 
“READLBLK 
“READPRESET 
“READVBLK 
~READWTHXBUF 
“RELEASE 

R 

R 
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DISKSVMS 


Attributes 
PIC CON REL LCL SHR EXE RD NOWRT LONG 
PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
PIC OVR REL GBL SHR NOEXE RD WRT LONG 

Address Type Name 

-00000200 I*4 | 

-0000034D CHAR IO$_ACCESS 

-00000483 CHAR IO$_AVAILABLE 

-00000369 CHAR IO$_CREATE 

-00000393 CHAR IO$_DELETE 

-00000065 CHAR IO$_DRVCLR 

-Q00000A9 CHAR IO$_ERASETAPE 

ms s'4'64 T6 CHAR IOS_INITIALIZE 

-Q00003A1 CHAR IO$_MODIFY 

-00000000 CHAR I0$_NOP 

-000 ogee CHAR I0$_PACKACK 

~QOOO003SEF CHAR IO$_RDSTATS 

-00000169 CHAR I0$_READHEAD 

- 3 F CHAR IO0$_READPBLK 

- 195 CHAR IO$_READTRACKD 

- 45A CHAR 10$_READWTHBUF 

- 04D CHAR IOS_RECAL 

- 1AB CHAR I10$_REREADN 

- CA CHAR IOS_RETCENTER 

- 9 CHAR I10$_REWINDOF 

- 4 CHAR IO$_SEEK 

- H CHAR I0$_SENSEMODE 

- B8 CHAR 10$_SETCLOCK 

- DD CHAR I0$_SETMODE 

- FA CHAR I0$_SKIPRECORD 

- OE CHAR I10$_SPACERECORD 

- CHAR IO$_STARTDATAP 

- 8 F CHAR IO$_STARTSPNDL 

- D CHAR 10$ UNLOAD 


ORTRAN 
MASTER: 


tear 


56 
SR 


Page 


a 
CJDUP3271.FOR;1 


DUP3271_Q10 


6B CHAR 10$_WRITEBUFNCRC - 

- if CHAR IO$_WRITECHECKH - 

1 CHAR IO$_WRITEHEAD - 

247 CHAR 1O$_WRITEMARK - 

-0000012A CHAR I10$_WRITEPBLK - 

-000001 4 CHAR IO$_WRITETRACKD - 

=00000448 CHAR I0$_WRITEWTHBUF ~ 

AP-000000048 L*1 LUN - 

ARRAYS 

Address Type Name Bytes Dimensions 
2-00000000 I*4 QIOCODE 512 (0:1, 0:63) 


LABELS 
Address 


eet 


Label 
10 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
IRP$SwW_FUNC 


Type Name 
I*4 LIBSEXTZV 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:DUP3271/0BJ=0BJ$:DUP3271 MSRC$:DUP3271 
Sete e teertente NOUNDERF LOW) 


/SHOW= (NOPREPROC 


COMPILATION STATISTICS 


Run Time: 4.83 seconds 
Elapsed Time: 13.61 seconds 
Page Faults: 189 

Dynamic Memory: 190 pages 


H 16 
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-Sep- 


1984 00:01: VAX=11_ FORTRAN 
1984 $3:54:13 DI SKSVMSMASTER: 
O$_WRITECHECK 

OS“WRITECSR 

O$"WRITELBLK 

O$"WRI TEOF 

O$“WRITERET 

O$ "WRI TEVBLK 

OS “WRT TMKR 

107STRING 


DE ,MA 
/F77 /NOG_FLOATING 714 WOPTIAIZE /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CGDE 


3.4- 
ERF.S 38c1DuP3271. FOR;1 


/CONTINUATIONS=19 


Page 


10 
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VAX/VMS V4.0 


